(rmail-dont-reply-to): Change user-original-login-name to user-login-name.

diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 6c0036d3f3c8b317bd1f55b7d976380d47b3b719..3798ab78dcef3d911f909dd753ee994cbf7efb04 100644 (file)
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -128,7 +128,7 @@ Usenet paths ending in an element that matches are removed also."
            (concat (if rmail-default-dont-reply-to-names
                        (concat rmail-default-dont-reply-to-names "\\|")
                        "")
-                   (concat (regexp-quote (user-original-login-name))
+                   (concat (regexp-quote (user-login-name))
                            "\\>"))))
   (let ((match (concat "\\(^\\|,\\)[ \t\n]*\\([^,\n]*!\\|\\)\\("
                       rmail-dont-reply-to-names